ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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as Sone Seen eet A Men hs 
MODULE RENAME ( DENT. = Havas one NAne Utility’ 


= RENAME MAIN 


| 


qecin 


i eeeeeeereneeeenerereereerereereererereereeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
'@ 


o 


1 
} | 
1 ie COPYRIGHT (¢) 1978 1980, 1982, 1984 8 ‘ | 
1 ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. ‘ | 
Oe : is ALL RIGHTS RESERVED™ : 
ig 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 1 i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ow = wits THE 
15 1 i INCLUSION OF THE ABOVE copyalent NOTICE. THIS sorte ARE OR M = * 
Bote 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 1 * 
001 1 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS NEREDY ® 
pois : is TRANSFERRED. . 
0020 1 ie pe A ole IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
88 § } i: CORPORAT LON. : 
0024 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
38 é : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
4 | 
i 
09 3 : S ssaesdiadneniidaeneienesies iaditeieitetimmntasehenmeachabsatneata iene caaiaiadeinctie i aaecinimetaiiatial eaten | 
| 1! 
0030 1 | 
0031 1 !4¢ 
+ § : } FACILITY: VAX/VMS RENAME Utility 
99 4 ; ABSTRACT: 
80 $ } : This utility renames files and directories. 
0038 : ; ENVIRONMENT: VAX/VMS Operating System, non-privileged user mode 
sine : AUTHOR: Steven B. Lionel, CREATION DATE: 04-0ct-1982 | 
ah) : ; Adapted from RENAME V03-000, written by Greg Robert | 
4 1 i MODIFIED BY: 
0466 1! 03-004 ®8LS0282 Benn Schreiber 5-MAR-1984 
7: Use new argument to LibSdelete_file for related file 
: : ; processing. | 
50 1! 38-003 $8L3003 Steven B. Lionel 11-Feb-1983 
3) } /UIC is now /BYOWNER, 
3g 1! 38-002 $B8L3002 Steven B. Lione 19-Jan-1983 
541! Remove special case RMS$_FEX oie since SRENAME now 
2? ' : correctly handles this. ~ 
3 1! 38-001 $813001 Steven B. Lionel 4-0ct-1982 
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RGU) -—«=«(ARVVNS RENAME Uti Lity 1Gr$ee198s QB:35:88 YASUE OLeHabeate: 5064 Paar og 


Rewritten from RENAME V03-000 to use new ¢ I interface 
LIBSRENAME_FILE, and file selection qualification routines. 


n 9 
VAX/VMS RENAME Utilit 16-Sep-1984 25:5 AX-11 Bliss-32 V4.0-74 
Declarations , 14 et 7 99:4 28 Yet iute sre RENAME .832; 


SSBTTL *Declarations' 
! SWITCHES: 


i 


SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


LINKAGES: 
NONE 


RUN SSRUSAF 


i 
75 i 
g TABLE OF CONTENTS: 
78 é 
79 FORWARD ROUTINE 
80 RENAME MAIN ! Main routine m 
81 CONF IRA_ROUTINE, ! Confirm file to be renamed 
8 LOG_ROUTINE: NOVALUE, ! Log successful renames 
8 ERROR_ROUTINE, ! Report errors 
He ERROR_HANDLER; ! Intercept signalled errors 
86 ! 
87 ' INCLUDE FILES: 
Hy 
4 LIBRARY ‘SYSSLIBRARY:STARLET'; ! System symbols 

{ 
8 i MACROS: 
94 ' 
95 NONE 
96 
g i EQUATED SYMBOLS: 


'¢ 
: Define shared messages needed by RENAME. 


i Data structure LOCAL BLOCK (defined by LB FIELDS) is passed as the 
! “user_argument’’ to LIBSRENAME_FILE, and thus to each of the action 
; routines. 


a a a ce ee a ee ec ee ec ee ee ce ce ce ee ee ee ee ce ee ce ce ce ce ce ce ce ee ee ee ed ee ee ee ee ee ee 


1 

1 

} 

1 P SSHR_MSGDEF (MSG, 144, LOCAL, 

1 P TNOFILES, INFO), ‘No files selected 

1 P IN, ERROR) ! Error opening input file 
1 P (OPENOUT, ERRORS, | Error opening output file 
1 P (RENAMED, INFO) ! File rename 

1 P (SEARCHFAIL, ERROR) | Could not find file 

11 

11 ! 

11 ' FIELDS: 

11 : 

11 

11 '¢ 

11 

11 

11 

12 
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VAX/VMS RENAME Utility 1 
Declarations 1 
FIELD 
LB_FIELDS = 
SET 
LB_L_WORST_ERROR = (0,0, 
LB-L_QUAL_CONTEXT = £4,0, 
LB-L-FLAGS = g. 
LB-V"LOG = €8.0,1, 
LB-V-FILE_SELECTED = (8/1°1. 
TES; 
LITERAL 
LB_K_SIZE = 12; 
! 
i PSECTS: 
PSECT 
CODE = $CODE (READ, NOWRITE, EXECUTE, 
ADDRESSING MODE (WORD _RELATIVE)). 
PLIT = SCODE (R NOWRITE, EXECUTE. 
ADDRESSING_MODE (WORD_RELATIVE)). 
= $DATA (READ, WRITE, NOEXECUTE, 
ADDRESSING_MODE (LONG. RELATIVE)) 
L = $DATA (READ, WRITE, NOEXECUT 
ADDRESSING_MODE (LONG_RELATIVE)); 
OWN STORAGE: 
NONE 


ee eo ee 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
CL T VALUE, 


EXTERNAL LITERAL 

LIBS_FILFAIMAT, 
ties auIeRO, 
RENARES. NOTRENAMED, 
RENAME $ NOT SAMEDEV: 


4 


Worst error so far 
Context for LIBSQUAL_xxx 


Flags 
Set if /LOG specified 
At least one file was renamed 


Size of LOCAL_BLOCK in bytes 


SHARE, PIC, 
SHARE, PIC, 
NOSHARE, PIC, 


E, NOSHARE, PIC, 


Get value from command Line 
Is qualifier present? 
Rename files 

Match selection qualifiers 
Parse selection qualifiers 


File failed to match qualifiers 
Quit confirm action 

Quit processing 

File not renamed 

Can*t rename across devices 


0 
ep-1984 00:25:5 AX-11 Bliss-32 V4.0-74 
4 138 13:68:28 CLIUTL.SRCJRENAME .832; 


10 
VAX/VMS RENAME Utility 18-Sep-1984 90: 43:3 AX-11 Oi fegeze V4.0-74 
RENAME _MAIN = Main routes 14-Sep-1984 12:08:4 CLIUTL.SRCJRENAME .832; 


ZSBTTL ‘RENAME_MAIN = Main routine’ 
ROUTINE RENAME_MAIN = 


'o¢ 


i FUNCTIONAL DESCRIPTION: 
This is “—_ main routine for RENAME. It calls LIBSQUAL_FILE_PARSE 
to peree the file selection qualif ers, sets the Local fhe age 
block, and talls LIBSRENAME_FILE to do the wor LIBSRENAME _FILE 
will call other routines inthis module as action rourines. to 
process the command. Upon return from LIBSRENAME_FILE, the most 
severe error status will be returned as the exit status of RENAME 
CALLING SEQUENCE: 
ret_status.wilc.v = RENAME () 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
Command Line 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION STATUS: 


$3 
3 


MEUM (OO OONAOUE WN O OONOUE Wit 


Normal successful completion 
RENAAESN NOFILES No files selected 
Worst error encountered 


SIDE EFFECTS: 


SSLESRANVLSSSLESEALN LSE SSLSARLAV ES SaNeaTT 


SOOSSSCOSOOO 0000000 0000000000000 00000000 J II 
SESLSSRAaNLSSESS FE = 


PIF IFIP IFIP IPIA IPI III IID et ed ts kk kk kd dd ot od 
DEDEDE III tk kk od od od at oD 


No i ew ww www fn lolo la lolololalololololololololololololololololololololo) 


PROPRIO POPOPOPOAPIMOPOAUPOIOIORY 8 a at at at tt a tt 


9 Renames one or more files. 
1 10 “= 
8 11 
14 \¢ BEGIN 
15 1 
1 sig LOCAL 
1 15 orm UAGS. VOLATILE BLOCK CLB_K_SIZE, erred FIELD (LB_FIELDS), 
18 1g Leta ualifier seléct flags 
19 1 REN yr for LIBSRENAME FILE 
$9 18 OLD_ NARE ane BLOCK arte ! Old name descriptor ~ 
1 1 NEW_NAME- DSC ‘guock’ Ait ! New name descriptor 
; 0 OLD-RSN_B ' Old RSN descriptor 
1 WeU REN DSC: ' New ao descriptor 
ri : CLI-STRI NG.D sts ack EB: Wa i Qualifier and parameter names 
5 FILESCAN_CONTEXT, ' Related file context pointer 
$ 4 STATUS1; ' Return statuse 
8 3 ‘ 
+ 
+] $ i Enable error handler which will keep track of the worst error 
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(3). 
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10 
VAX/VMS RENAME UtiLit 16-5 =1984 00:25:56  YAX=11 Bliss-32 v4.0-74 
vOe-000 RENAME MAIN = Main routine 1en8ep-19ee $3i6asce | Pe TUT skeSnenane 16355 
CLI_STRING. DSC CDSCSA_POINTER] = UPLIT BYTE ('LOG'); 
IF cc isenesent eee erate psc) 


LOCAL_BLOCK CLB_V_LOG) = 1; 
1 


'¢ 
: See if /NONEW_VERSION was specified. 


RANSLSESIEAR 5 


CLI_STRING_DSC CDOSCSW_LENGTH] = ZCHARCOUNT (‘NEW VERSION"); 
95 CLI_STRING DSC LDSCSA_POINTER] = UPLIT BYTE ("NEQ_VERSION'S; 
RENAAE FLAGS = 0; 
fen CLISPRESENT (CLI_STRING_DSC) 
RENAME _FLAGS = 1; ! SET V_NONEW_VERSION bit 
14 


; Get new filename, since there can only be one. 


; 3 

| 3 

: 303 00 

i $08 08 

: 305 2 Q 

3 304 

FH} $$ Bao CLI_STRING_DSC iting cyt. = ZCHARCOUNT ('P2'); 

$ 08 86 CLI_STRING_ DSC LDSCSA_POINTER] = UPLIT BYTE (*P2'}; 

; 09 9 M4 CLISGET_VACUE (CLI_STRING_DSC, NEW_NAME_DSC); 

: 311 0309 16 

3 \ 0310 ! until all “old” filespecs are processed, get the next old filespec 
: a 0311 ! and call LIBSRENAME_FILE for each one. Use the previous old resultant 
: ‘3 0318 ! filename as the related filename for each iteration. 

; 31 14 

$ 13 0313 CLI_STRING_DSC CDSCSW_LENGTH] = ZCHARCOUNT ('P1'); 

HY 18 0 \¢ CLI_STRING DSC CDSCSA_POINTER] = UPLIT BYTE (*p1'5; 

: 1 Bele WHICE  (CLISGET VALUE TCLI_STRING_DSC, OLD_NAME_DSC)) dO 

; 31 0819 STATUS! = LIBSRENAME_FILE ( 

3 § 0320 OLD_NAME_DSC, ! Old name 

3 ie 0321 NEW_NAME_DSC, ! New name 

3 324 8355 " ' No default name 

3; 325 3 ' Related name - previous old RSN 
: 326 03 4 RENAME FLAGS, i Rename flags 

: 327 325 LOG_ROO . ' Log routine 

3 8 3 $ ERROR_ROUTINE, ' Error routine 

3 9 CONF IRM_ROUTINE, ' Confirm routine 

3 $ LOCAL BLOCK, ' User argument 

3 1 OLD_RSN_DSC, ' Old resultant name 

; 3 3 NEW-RSN DSC, ' New resultant name 

3; 33 : 1 FILESCAR_CONTEXT); ' Related file context 

; i 5 IF NOT .STATUS1 

; 4 5 SIGNAL_STOP (.STATUS1); 

; $39 a 

3 340 8 '¢ 

3 1 ! If an error occurred, return the worst error. 

“ $ ? : If no files were selected, return an informational to that effect. 


$3 
Es 


vw 


ONANE WH —"OOONOUE 


Ss inne Utility 
MAIN = Main routine 


F 10 
16-Sep-1 725:5 AX-11 Bliss-32 V4.0-74 
12-388-138¢ 99:68:28 CLIUTL. SRC RENAME .832; 
A gLOCAL BLOCK CLB_L_WORST_ERROR] NEQ 0 

RETURN .LOCAL BLOCK CLB_L_WORST_ERROR; 


Ay ~LOCAL_BLOCK CLB_V_FILE_SELECTED) 


Dt 
mp 
Pad 
Ee 
- 


S$); ! Dis Biegler message ‘no files selected’ 
: Won't get S128f eyed again 


RETURN SS$_NORMAL ; 
END; 


BUENO OONAULS UT 
@ 
m 
o 
_ 
2 


Mn 


End of routine RENAME_MAIN 


- TITLE Nitrate 444 VAX/VMS RENAME Utility 
DENT 


-PSECT SCODE,NOWRT, SHR, PIC,2 


0000 P.AAA: \LOG\ 
4E 4F 49 53 52 45 56 SF 0003 P.AAB: .ASCII > + marae 
00 : oA \P2\ 
000 CI] \PIN 


eEXTRN CLISGET_VALUE, CLISPRESENT 
~EXTRN LIBSR RENAME _F IL 


«EXTRN LIBSQUAL_FILE_MATCH 
EXTRN tIBSQUAL~ FILE PARSE 
-EXTRN LIBS_FILFAIMAT, LIB$_QUICONACT 
-EXTRN LIBS-QUIPRO, RENAMES-NOTRENAMED 
EXTRN RENARES. NOT SAMEDEV 
001C 00000 RENAME_MAIN: 
& 000000006 9E HOvAm ee Scee Nacue, Ro 
34 0000006 09 9 MOV CL ISPRESENT, as" 
5E SUBL2 #56, S$ 
. a@rR: CLRO = LOCAL_BLOCK 
AE D4 CLRL LOCAL -BL BLOCK 
Sr eles reas 
18 AE 0200000 aF b0 ROVE sepia at *RSN. DSC 
10 AE 02060006 BF D0 000 : ROVE Beat ae NEW_RSN_DSC 
AE D4 00C CLRL RSND psc 
28 AE 020€ 8F DO 00C mMOVL so ea 936 OLD_NAME DSC 
AE D4 000 CLRL i 
20 AE 020E00 aF p ROVE #3462719 NEW_NARE_ DSC 
OA AE 10€ 8F MOV CLT STRING_ DSc+2 
OEE OB Se 0036 RovruL #8i1; GuAC 
de AEF 005A PUSHAS total Bt 
000000006 00 02 FB 0005D CALLS OUAL FLAGS _FILE_PARSE 
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10 
REWARE, —-_YAR/VIE RENARE UPL ty i$-deort9ee 0:25:5¢  yatett BLing=32 v4.0-762 
MOV 


of aE 03 #3, CLI_STRING_DSC 
83 AF e MOVAB P.AAA, CLI_STRING_DSC+4 
¢ AE PUSHAB cll fRING-DSC 
63 F CALLS ‘ » CLISPRESENT 
C AE ° : 81562 af LOCAL_BLOCK+8 
¢ AE 1$: mOVw #11, CLI_STRING DSC 
AE FFOF = CF MOVAB P.AAB, CCI_STRING_DSC+4 
8 A CLRL RE FLAGS 
C AE OOF PUSHAB 11 RING dsc 
63 r CALLS » CLISPRESENT 
9 : BLES 0, 
8 AE VL #1, RENAME_FLAGS 
¢ E 2 28: VW #2, CLI_STRING DSC 
10 AE FF60 CF MOVAB P.AAC, CLI_STRING_DSC+4 
4 AE OF PUSHAB NEW_NAME DSC 
0 F PUSHAB ¢ IISTRING DSC 
0 FB CALLS #2, CLISGET VALUE 
o¢ AE B0 MOVW #2, CLI_STRING DSC 
10 AE FFGF OCF MOVAB P.AAD, CLI_STRING_DSC+4 
ef AE 9F 3% PUSHAB OLD_NAME osc 
AE OF PUSHAB C IISTRING DSC 
64 : FB CALLS ‘ ch GET_VALUE 
04 AE FF PUSHAB FILESCAN_CONTEXT 
18 AE OF PUSHAB WNEW_RSN_DBSC 
24 AE OOF PUSHAB OLD-RSN~DSC 
40 AE OF PUSHAB LOCAL BCOCK 
0000v CF 9F PUSHAB CONFIRM ROUTINE 
9000v CF OF PUSHAB ERROR ROUTINE 
v CF OF PUSHAB LOG ROUTINE 
24 AE OF SHAB RENAME_FLAGS 
7E 7¢ CLRQ = =( SP) 
4¢ AE OF PUSHAB NEW_NAME_DSC 
58 AE OF PUSHAB NAME DSC 
000000006 f CALLS #127 LIBSRENAME_FILE 
D MOVL RO STATUS 
C4 E BLBS  STATUS1, 3$ 
DD PUSHL STATUS! 
000000006 00 it CALLS #1, LIBSSTOP 
B9 1 F BRB 3 
34 AE : FB 4S: TSTL LOCAL _BLOCK 
0 FB BEQL 
50 34 OA ; ROVE LOCAL_BLOCK, RO 
15 3c AE 1 €0 58: BBS a AL_BLOCK+8, 6$ 
commons gg ISS FR BIE Ri EE 
00901333 BF 06 20114 ROVE #9449099. RO 
50 01 poric 6s: ROL aT, RO 
001 7$: - WORD ave nothing 
50 08 AC 00 001 MOVL (AP), RO 
ice 001 MOVL (RO); R 
F4 AO OF OOTOA PUSHAB LOCAL BLOCK 
01 DD 001 PUSHL @ 


Pe Oe Oe Se Se Se Se Ge Se Oe Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Be Se Se Se Se Be Be Se Be Be Be Se Se Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


IER IBHS O0:SE:88 | HGUSHERA TT Pr 
04 i NS move. inp) =(SP) : 


CALLS #3, ERROR_HANDLER 
RE 


0000v C 


; Routine Size: 315 bytes, Routine Base: SCODE + 0012 


AX/VMS RENAME UtiLlit b-fe 1 :25:5 AX-11 Bliss-32 V4.0-74 
yoo 000 FIRM_ROUTINE = Contire that rename should be 1 30071382 99:83:28 CL TUTL SRE IREMAME 63224 

ZSBTTL "Foed | Rout ine = Confirm that rename should be done’ 
ROUTINE CONF IRM ROUT ( 

OLD ASN: REF BLOCK ({, BYTE), ! Old resultant string descriptor 

W_RSN: REF BLOCK YTEJ, ! New resultant string descriptor 
FAB: REF BLOCK C, BYTE i File's FAB 
LOCAL BLOCK: REF BLOCK fie_K_size, BYTE) FIELD (LB_FIELDS) 


+ 
FUNCTIONAL DESCRIPTION: 


This routine is called by LIBSRENAME_FILE to confirm that the 
file described by FAB should be renamed. 


CALLING SEQUENCE: 


confirm.wv.v = CONFIRM_ROUTINE (OLD _RSN.rt.dd, NEW_RSN.rt.dd, 
FAB.rror, LOCAL_BLOCK.mr.r) 


FORMAL PARAMETERS: 


i 
re OLD_RSN - Old resultant name. 
39 NEW_RSN - New resultant name. 
Hf FAB - FAB that describes file to be renamed. 
384 LOCAL BLOCK - Block of local information. 
i IMPLICIT INPUTS: 
88 NONE 
0389 
ey IMPLICIT OUTPUTS: 
039. NONE 
Be 
97 0 ROUTINE VALUE: 
6 TRUE if file should be renamed 
0 FALSE if file should not be renamed 


SIDE EFFECTS: 


SSsSsesssesss 
eeeeeeeeres 
Speseseesesys 


IID D ID DDR DRI ot et et ak a et et td kb tt et a dh wo 8 as 2 4 8 4s ~~ 9 ss a 8 3 0 a 2 


NONE 
4 oe 
4 BEGIN 
410 oF LOCAL 
411 PROMPT_ARGS: VECTOR (2, LONG), ' FAO argument List for prompt 
4g 09 PROMPT"DSC: BLOCK (8, BYTE), i Descriptor for rompt string 
41 19 MATCH_STATUS; ! Status from Qual Fi E_MATCH 
re } t+ 
416 18 i Set up PROMPT_ARGS and PROMPT_DSC. 


10 
VAX/VMS RENAME Utilit 18-50 - :25:5 AX-11 Bliss-32 V4.0-74 P 1 
yoe~ 000 CONF IRM_ROUTINE = Contirm that rename should be 1 =3007138e 99:68:28 CLTUTL SRE IREMAME 103224 rss (4 
1 fe 
1 
1 PROMPT _ARGS = OLD_RSN (0,0,0,0); ! Descriptor address 
1 PROMPT_ARGS £9 = NEUCR N £8 3 0:03: ! Descriptor address 
1 PROMPT~DSC bst$B_DTvBE = psc§x_p YPE_T; 
1 OMPT_DSC LDSCSB_CLASSJ = Ost K CLASS_S; 
PROMPT_DSC pergeabEwerH) = ZCHARCOUNT("!AS ==> !AS ? (Y,N,Q,ALL): "); 
PROMPT _DSC LOSCSA_POINTER] = UPLIT BYTE (°!AS ==> !AS ? (¥,N,G,ALL): 5; 


hd ; 
: Call LIBSQUAL_FILE_MATCH to see if this file meets the criteria. 


MATCH_STATUS = LIBSQUAL_FILE_MATCH ( 
LOCA BPbOsk, LB_L_GOAL_CONTEXTI, 


! File name omitted 


WN O ODNA NEW QO OONAUE 


Wn NOUS wr 


i If this file was selected, indicate that in LOCAL_BLOCK. 


NOOO 
ooo 


; PROMPT _DSC 

3 435 PROMPT ARGS, 

3 ); ! Prompt routine omitted 

: 5 ‘+ 

3 9 ! If a failure status other than ‘failed to match'’ was returned, 
3; 440 ! signal it. If it is LIBS_QUIPRO, ERROR_HANDLER will unwind back to 
3 $4} ; : the CLI with a success status. 

3; 44 40 

3 666 41 IF NOT .MATCH_STATUS 

3; 465 *g THEN 

3 46 0443 IF -MATCH_STATUS NEQU LIBS_FILFAIMAT 

3 rr | Bete IF (.MATCH STATUS EQLU LIBS_QUIPRO) OR (.FAB CFABSL_STS)) 
; 450 Beer SIGNAL (.MATCH_STATUS) 

3 451 48 ELS 

3; «645 0449 BEGIN 

; 45 50 '¢ 

3 454 51 + LIBSQUAL_FILE_MATCH couldn*t open the file. 

3; 4655 2g Signal “error opening file’. 

3 54 

; 458 55 LOCAL 

3; 459 2 NAM: REF BLOCK C, BYTE) 

: 460 2 RSN DESER: LOCK (8, BYTE); 

; 4 3 NAM = .FAB aa ts NAMI: 

3 $86 5 RSN_DESCR CDSCS$B_BTYPE) = DSCSK_DTYPE_T; 

; 46 60 -DESCR CDOSCSB_CLASS) = Beak EL ASS S$; 

3 464 61 “DESCR COSCSWILENGTH] = .NAM”CNAMSE RSL); 

ie SICA mega orbarge" Iden Geeta ASM: 

; rs] 64 FAB trABSL Sts4, -FAB CFABSL_STV)); 

; 4 $6 

; 670 6 '¢ 


Kk 10 

VAX/VMS RENAME Utilit 16-Sep-1 :25:5 AX-11 Bliss-32 V4.0-74 
you 060 CONF IRM_ROUTINE = Confirm that rename should be 13-80 8=188e 90:83:08 CLIUTL. SRC IRENAME .832; 
; 47% F ;MATCH STATUS 
; are f LOCAL BLOCK [LB_V_FILE_SELECTED] = 1; 
; $f8 7 '¢ 
; 2 7 Return to LIBSRENAME_FILE with match status. 
; 481 7 , 
i 4 ; 8 RETURN .MATCH_STATUS; 
: 6 Hy END; ! End of routine CONF IRM_ROUTINE 


Per Eran 


20 3E 2D 2D 20 53 41 21 O014D P.AAE: .ASCII \!AS ==> !AS ? (Y,N,Q,ALL): \ 
6c 41 2c 3 3 4E 2c 5 boise 


003C 00000 CONF IRM_ROUTINE: 
WORD Save R2,R3,R4,R5 
LIBSSIGNAL, R5 


55 000000006 99 9 90002 HOVAB 
5 1 ¢ 0009 SUBL . 
10 AE 04 AC 0000¢ Mov OLD RSN, PROMPT_ARGS 
08 AE 010E001B BF 00 00011 MOVL #$ #17694747, PROMPT DSC 
OC AE C9 AF 9E 00019 MOVAB P.AAE, PROMPT_DSC74 
7E 04 0001 CLRL = = (SP) 
14 AE 9F 000 PUSHAB PROMPT_ARGS 
10 AE 9F 000 PUSHAB PROMPT~DSC 
7E 04 000 6 CLRL = = (SP) 
52 0¢ aC 7D 000 MOVG = FAB, R2 
5 bb 002¢ PUSHL 
04 A3 9F 000 E PUSHAB 4(R3) 
000000006 90 06 FB 000 CALLS a6, LIBSQUAL_FILE_MATCH 
4 5 D0 00 MOVL RO. MATCH S 
45 4 €8 00038 BLBS § MATCH_STATUS, 
000000006 8F 4 D 00 CPL BATCHISTATUS, #LIBS_FILFAIMAT 
000000006 8F 4 i 0 CPL MATCH STATUS, #LIB$_QUIPRO 
07 08 a2 E 5 BLBC ©=-_-« B(R2),,_ 28 
54 DD 00054 1$ PUSHL MATCH’ STATUS 
65 91 f 6 CALLS #1, LIBSSIGNAL 
50 38 43 DO 00058 2$ MOVL a9 cna) NAM 
02 AE 01 : BF 05 F MOVW #270, RSN_DESCR+2 
6E A 065 MOVZBW P(NARD . RSN_DESCR 
04 AE 4 A p 69 VL (NAM). RSN“DESCR*4 
7E H A2 7D 0006 MOVG &(R2), =(SPY 
AE oF PUS RSN_DES 
DD PUSHL # 
0090109A 8F OD PUSHL #9441436 
5 5 FB CALLS #5, LIBSSIGNAL 
r 4 ; 3$: BLBC MATCH STATUS, 5$ 
08 A 2 ; 4$: BISB2 #2, 8tR3) 
5 pO 5$: MOVL MATCH_STATUS, RO 


WOe-000 CONE LRA a. fi UIINE’® ton ntirn that rename should be ite sp: 1382 93: 68: i Ceiut Rese ane: AME 030: ene (a3 


3; Routine Size: 139 bytes, 


Routine Base: SCODE + 0168 


. 


ae 


SSELE 


SEEEEEE EE ES 
GRISSSISSRANS 


oo 


SBIESR 


ROR SS SP eS SS 


WN OOD NAUEWN HODRBNOUEWN—O 


Orn. 


SHIEST 


Be Se Se Se Se Ge Se Se Se Se Se Ss Se Se Se Se Ge Se Se Se Ge Se Ge Ge Ge Ge Se Se Ge Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Ge Se eees 


PPP PPP PPPS STATS PSST STS PUSS STITT TTT ITT TTT 


Fat ae 
No 


VAX/VMS RENAME Utility 16-50-1984 99:53:28 AX-11 Oi regeze V4.0-74 


LOG_ROUTINE = Log successful rename 14-Sep-1 CLIUTL.SRCJRENAME .B32; 
ZSBTTL *LOG_ Rout NE - _ 4 successful rename’ 
¢ | aserrte LOG-R OUTINE _ ae gaa 
Brock e Brie s ; a ee pee name 


DLR 
NEW” REN: REE BLOCK 


5 5) ant name 
LOcaL ~ arty ae REF coe tis k SIZE, Bite Fffib. (cB FIELDS) 


'o¢ 


FUNCTIONAL DESCRIPTION: 

i This routine is called by bIBSRENAME FILE after a successful 
rename. If /LOG was specified, a message indicating the names 
of the files cored is displayed. 

i CALLING SEQUENCE: 


CALL LOG_ROUTINE (OLD_RSN.rt.dd, NEW. RSN.rt.dd, 
LOCAL-BLOCK.mr.r) 


1 

] 

] 

‘ 

i 

4 

4 

1 

i 

i FORMAL PARAMETERS: 

OLD_RSN - Old resultant name. 
. NEW_RSN - New resultant name. 
; LOCAL BLOCK - Block of local information. 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

; NONE 

ROUTINE VALUE: 

; NONE 

SIDE EFFECTS: 

NONE 

t 


BEGIN 
'¢ 
;_if /LOG was specified, log the rename. 
If .LOCAL_BLOCK (LB_V_LOG) 
SIGNAL (MSG$_RENAMED, 2, OLD_RSN (0,0,0,0], NEW_RSN (0,0,0,0)); 
RETURN; 


POPOIRIARI RIB RIPPER RR at a et at at hs a at 8 ~~ 0 a = 2 ts ss bs ss ts a ss 2 st st 


at III IO felol=} oO 


POPU DDD DVUPVPUDUPUDUPUPVPUPUPULUSUSUSUSUSU ISTITUTO 


SOOSSOOOOSOSOOOOSSOSOSGSOOOOSOOOOSOOSOOOSOOOOoOSoO 


N 10 
16-Sep-1984 00:25:56 VAX-11 Bliss-32 V4.0-742 Page 


VAX/VMS RENAME Utility 16 
LOG_ROUTINE = Log successful rename 14-Sep-1984 12:08:48 CCLIUTL.SRCJRENAME .632; 1 ’ (5) 
; 543 0539 1 END; ! End of routine LOG_ROUTINE 


0000 00000 LOG_ROUTINE: 
«WORD 


50 OC AC DO 00002 MOVE §— LOCAL BLOCK, RO : 0533 
1 08 AO E9 00006 BLBC (RO); 1$ F 
7é 04 ac 7 000A MOV OLD_RSN, =(SP) ; 0535 
92 DD 9000 PUSHL  # ; 
009012A3 BF DD 000 PUSHL #9441955 ; 
000000006 00 04 FB 00016 CALLS #4, LIBSSIGNAL : 
04 0001D 18: RET : 0539 


| 
| 
Save nothing 3: 0483 
3; Routine Size: 30 bytes, Routine Base: S$CODE + 01F3 


Se _—— ————— sees ——— 


Se ESSE at as SEO NFS SET PLR EER aaa 


18-Sep-19 


OLD_RSN - Old resultant name. 


REN VAX/VMS RENAME Utilit 4 00:25:5 AX-11 Bliss-32 V4.0-74 Page 17 
| ¥Oe-060 ERROR_ROUTINE = Report failed rename 122805- 138 99:63:08 tet rut sre RENAME .B32; “ (6) | 
45 40 1 ZSBITL “ERROR_ROUTINE = Report failed rename’ 
‘3 41 1 ROUTINE ERROR ROUTIN 
4 tg 1 OLD_RSN: REF BLOCK [, BYTE), ! Old resultant name 
48 43 1 NEW_RSN: REF BLOCK [, BYTE), ' New resultant name 
49 544 1 RMS_STS: REF . BYTEJ, ! RMS STS status code 
50 et? 1 RMS STV: REF BLOCK a's ° ! RMS STV status code 
21 4g 1 ERROR_SOURCE: REF VECTOR [, LONG], | Source of error code 
¢ 547 1 LOCAL_BLOCK: REF BLOCK CLB_K_SIZE, BYTE] FIELD (LB_FIELDS) 
a2? 548 d= 
5 49 
555 50 lee 
339 2} : FUNCTIONAL DESCRIPTION: | 
58 3 This routine is called by LIBSRENAME FILE after a failed | 
223 2 rename. The error message is signalTed. 
26! 3 CALLING SEQUENCE: 
268 58 status.wic.v = ERROR ROUTINE (OLD _RSN.rt.dd, NEW_RSN.rt.dd, | 
564 59 RM etle.r, RMS_STV.rlc.r, 
303 ¢ ERROR_SOURCE.rl.r, LOCAL_BLOCK.mr.r) | 
567 6¢ FORMAL PARAMETERS: | 


NEW_RSN - New resultant name. 
RMS_STS 


The RMS STS condition code 


RMS_STV - The RMS STV condition code 
ERROR_ SOURCE An integer that indicates where the error occurred. 
Q = Error from b SESE ILE SCAN 


i 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
1 = Error from 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
ie 


2 = Error from SRENAME | 
LOCAL _BLOCK - Block of local information. 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
SS$_NORMAc 

! SIDE EFFECTS: 

Signals the error 


SOOO COCSOOSOSOOOCOOOOOC OOOO OOOOOOOOOOOOOOOO 


SSSLEARAV AS SAISARANIASSS 


ooo 
wn 


ON a a tt ik ah a a nt 4 8 a a — ss = ds Ls 4 ss 1 1 a 


sssessssss3ss3s33333 


PUPP APA AAAAA AAAI 


woowowvovond 


Seveesss 
LSSSSLSSE 
QOuUFrwnr— 


BEGIN 


Ss 90: 5:5 AX-11 Bliss-32 V4.0-74 Page 18 


yy BL 
NE = Report failed rename 4 12:08:4 CLIUTL.SRCJRENAME .832; (6) 


A 
R 
5 
£08 2 '+ 
one ; Case on the error source code to signal the proper message. 
6 . 
$09 6 CASE .ERROR_SOURCE [0] FROM 0 TO 2 OF 
08 SET 
C0): ene Error searching for file 
SIGNAL (MSGS_SEARCHFAIL, 1, OLD_RSN (0,0,0,0], 
enp: RMS=STS” B02, > oRMS_STV t06b 798069); 
(1): ! Error during SPARSE of new filespec 


N 
SIGNAL (MSG$_OPENOUT, 1, NEW_RSN C0,0,0,0) 
.RMS_STS~ 060. 32,0), -RMS_STv £6,6,$2,63); 


(2): ! Error during SRENAME 
BEGIN 


i If error is RMS$_DEV then assume the user is trying to 
rename across devices and give a specific message. 


POPUTOPORIPURIPORY 2 ee 


o tains C0,0,32,0] EQL RMS$_DEV 


SIGNAL (RENAMES_NOTRENAMED, 1, OLD_RSN (0,0,0,0], 
RENAMES_NOTSAMEDEV) 


oO 
oa 
MPINIPOPOFUROPUny 


DIRAE UO 


Be Ge Ge Se Ge Ge Se Be Ge Ge Fe Ge Oe Ss Se Se Se Ge Se G5 Se Se Ge Ge Se FF Se Se Ge Se Ge Ge Se Se Se Sees Se tees 


SNOMR MI SOO NAAR WNW OOD. 
PELSSRERESSSSSSSSSSSSSS 
SSRN ASSETS RON SSES 
=RIMNINININ AWA AW NWI NAINA PII HI AIPA IIOP PN NN NP 


06 
06 ELSE 
06¢ SIGNAL (MSG$_OPENIN, 1, OLD_RSN [0,0,0,0], 
.RMS_STS~C0,0,3¢,03, .RAS_STV (€0.0.32.0); 
063 END; 
ot TES; 
, O63 RETURN SS$_NORMAL ; ! Continue renaming 
1 0636 END; ! End of routine ERROR_ROUTINE 
0004 00000 ERROR_ROUTINE: | 
-WORD Save R2 : 0541 
52 000000006 00 9€ 9002 MOVAB LIBSSIGNAL, R2 | 
02 09 14 BC CF 000 CASEL SERROR_ SOURCE, #0, #2 3 0602 | 
002¢ 001 0006 OO0E 1$ , q3-) = : | 
is-13"” : | 
10 BC DD 00014 2s: PUSHL a@RMS_STV ; 0608 
o¢ BC DD 00017 PUSHL @RMS~STS ; | 
4 AC DD OOOIA PUSHL OLD_RSN ; 0607 | 
ot DD 0001D PUSHL & ; 
0090123A 8F DD O001F PUSHL #9441850 ; 


voe~060 


; Routine Size: 


VAX/VMS R 


114 bytes, 


NAME g Md 
ERROR_ROUTINE = Report failed rename 


5 

009010A2 

000184¢4 = &F oc 
woscecare 


2 000000006 


RRs 


0090109A 


Routine Base: 


oo- "VT °T0°0 —-0°0 -~CcVTT70C0— 
ocoo°c lo -aoro[T9ON— 9 C°Co°00— 


OOS 


06 


SCODE + 0211 


1b-5e Sep-1 
1 ~Sep-1 


Be 12:68:08 


Ax-11 Oi ieee 32 V4.0-74 
CLIUTL.SRCIJRENAME .832; 
@RMS_STV 
@RMS_STS 
NeW. SN 
a 
* a 


MS_STS, #99524 
PRENAMES NOTSAMEDEV 
OLD_RSN 


#RENAMES NOTRENAMED 
a" LIBSSIGNAL 


#944 
a5, L885 16NAL 


YAX/WMS RENAME UESLSRY 1G-Sep-1964 00:25:56  yaxett BLin8-82 vé.0-74 


. 


: 643 7 1 ZSBTTL ° — HANDLER = Condition handler’ 

> 644 6 1 ROUTI OR-HANDLER( 

; 645 1 SIGAR : oe BLOCK cf. 8 eyte ! Signal argument List 

3 one 1 ACHARGS: REF i Mechanism argumen list 

3 64 1 ENBARGS: REF VECTOR a evted: i Enable argument Lis 

; 648 642 1 )z 

; 649 1 

; 650 4 1 !e4 

; ° 1 5 : FUNCTIONAL DESCRIPTION: 

; 6 a § 1! This is the condition handler for or: MAIN. it stores the 
; $38 3 1! eerste ag in the LOCAL oo OCK. If the error LIB$_QUIPRO, 
3; 655 1! the user t pag © uit to ehe confirm prompt, an unwind 
: $26 “9 } } with. A. us SS$_NOR is done to the caller of RENAME_MAIN. 
: 658 52 1! CALLING SEQUENCE: 

; 659 peeg 1! 

; 660 0654 1! ret_status.wic.v = ERROR_HANDLER Kotpares.rbu. -fa, mchargs.mbu.ra, 
; 661 0655 1! args.mbu.ra 

3 $66 Be28 1! 

; 66 065 1 ! FORMAL PARAMETERS: 

3; 664 0658 1! 

; 665 0659 1! SIGARGS - The signal arguments List 

: 666 0660 1 ! 

3; 667 0661 1! MCHARGS - The mechanism arguments List 

; 668 09) 1! 

3; 669 0665 1! ENBARGS - The enable arguments List. It is an array of 
; 670 0664 1! two longwords, the second of which is the 
: or) 0665 : : address of LOCAL_BLOCK. 

s 67 bes? 1 ! IMPLICIT INPUTS: 

3 674 0668 1! 

3; 675 0669 1! NONE 

3 676 0670 1! 

3; 67 0671 1 =! IMPLICIT OUTPUTS: 

3; 678 BOre 1! 

3; 679 0673 1! NONE 

3; 680 0674 1! 

3; 681 5 1 ! ROUTINE VALUE: 

: eas 8 i SS$_RESIGNAL 

2 684 1! ‘2 

; ret ' : SIDE EFFECTS: 

: 68 1} NONE 

3; 688 1! 

3 689 1 !-- 

: 690 1 

3; 691 BEGIN 

3; 69 

3; 69 LOCAL 

3 694 LOCAL proce: REF peoce f BYTE) Arie’ (8 FIELDS), 

> 695 OLD_CODE: BLOCK te}. tatus 

3 696 NEW" ODE: BLOCK a: BYTE a Stet 

3; 69 

; 698 '¢ 

3; 699 ! Check to see if this is an unwind. If so, return. 


nee 


: 


ERROR_HANDLER = fond! tion handler 14-Sep-19 CLIVTL.SRCJRENAME. B32; 
: Also return if the message is a success status. 


VAX/VMS RENAME Utili 16- sep-1984 90: 63:2 AX-11 Bliss-32 v4.0-7 Page 3 


wr 


NEW_CODE = sSIGARGS CCHFSL_S1G_NAME]: 
IF t. ~NEW CODE) OR (.NEW_COBE EGLU SS$_UNWIND) 


RETURN SS$_RESIGNAL; 


oO 
w 


14 
joe to see if this is LIBS_QUIPRO. If so, unwind. 


IF .NEW_CODE EQLU LIBS_QUIPRO 
THEN 


BEGIN 

MCHARGS CCHFSL ACH SAVRO] = SS$_NORMAL; ! Restore status of RO 
D (); wind to caller of establisher 

—— $58" RESIGNAL; 


'¢ 
if" this status is ‘‘worse’’ than the previous worst status, save it. 


LOCAL BLOCK = , ENBARGS 
D_CODE = .LOCAL_BLOCK aie} \. _WORST_ERROR); 

*° SNEW_ cove STeSye _SEVERITY) GTRU 7OLD_CODE CSTSS$V_SEVERITY) 
LOCAL_BLOCK CLB_L_WORST_ERROR] = .NEW_CODE + STSSM_INHIB_MSG; 

RETURN SS$_RESIGNAL; 


END; ! End of routine ERROR_HANDLER 


SNS NS SNS SSS 


MIMIMIMININONY) 
MIS SONA EU OODNAA PWV HOOD IE 


SN NSN SSNS SSS 


RORININONONORY 2 ot 2 to 


Se Se Se Ge Se Ge Ge Ge Se Ge Ge Se Se Ss Se Ge Se Se Ss Ge Se Se Oe SF Se Se Se Ge See Sees es 


SOCooooooooooooooooo 


.EXTRN SYSSUNWIND 
000C 00000 ERROR_HANDLER: 
WORD 


Sav . 
59 04 ac D MOVL SIGARGS, RO > 0697 
j 04 AO D VL &(RO), NEW CODE ; 
4 é BLBS  NEW_CODE, 2$ : 0698 
00000920 =F é p CRPL NEW CODE. #2336 : | 
000000006 8F 3¢ 2 cnPL W_CODE, #L18$_QUIPRO : 0706. 
50 08 ac 06 MOVL CHAR $ > 0709 | 
oc AO 91 B MOVL Shon ; 
é C CLRO a p) : 0710. 
000000006 00 0 re CALLS » SYSSUNWIND : 
— 1 BRB F vane 
0 oC AC D MOVL ENBARGS. RO : 0718 
i $0 MOVE {LOCAL BLOCKY” OLD. CODE : 0719 
53 51 ; 6 EF EXT a #3> OLD copes O : $720 | 
2 ED CMP2V > NEW” EODE: R : 


voe~000 ERROR-RANDLER = Condition handler 1f3e0-138e ot Ma UNTIL i ao yd OT 
; 138 of ? 1 ine ! End of module RENAME 


-EXTRN LIBSSIGNAL, LIBSSTOP 
: PSECT SUMMARY 
3 Name Bytes Attributes 
; SCODE 729 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(2) 


Library Statistics 


Ee Pe ele oe on Sree) a Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

> _$255SDUA28:(SYSLIBISTARLET.L32;1 9776 41 0 581 00:01.0 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RENAME/OBJ=OBJ$:RENAME MSRC$:RENAME/UPDATE=(ENHS: RENAME ) 


3; Size: 684 code + 45 data bytes 
; Run Time: 714.9 
3 Elapsed Time: : 0.0 
; Lexemes/CPU-Min: 1 35 


Memory Used: 103 pages 
; net Bee Cenplere”” 


005] SH BT13A-SE | DIG T CORPORATION 
VVJL VAX/VMS V4.0 TAL -AND PROPRIETARY 


